home *** CD-ROM | disk | FTP | other *** search
/ Sunday Savers: Sharing Fun! I Know My Savior Lives / Sunday Savers: Sharing Fun! I Know My Savior Lives.iso / mac / Xtras / PrintOMatic MX 1.7.3 / PrintOMatic MX (Classic) / -PrintOMatic MX Demo.dir / 00015_order form.ls < prev    next >
Encoding:
Text File  |  2004-04-02  |  2.0 KB  |  53 lines
  1. on mouseUp
  2.   if isXtraInstalled("printomatic") = 0 then
  3.     alert("The PrintOMatic Xtra is not installed. Printing is disabled.")
  4.     exit
  5.   end if
  6.   doc = new(xtra("PrintOMatic"))
  7.   if not objectp(doc) then
  8.     alert("There is no currently selected printer. Printing features are disabled.")
  9.     exit
  10.   end if
  11.   cursor(4)
  12.   setDocumentName(doc, "PrintOMatic MX Order Form")
  13.   setMargins(doc, rect(0, 0, 0, 0))
  14.   drawPicture(doc, member("logo"), rect(115, 46, 400, 94))
  15.   drawPicture(doc, member("address"), rect(36, 216, 126, 600))
  16.   newPage(doc)
  17.   newFrame(doc, rect(144, 108, getPageWidth(doc) - 72, getPageHeight(doc)), 0)
  18.   setTextJust(doc, "center")
  19.   append(doc, member("ordertitle"), 0)
  20.   the itemDelimiter = ","
  21.   y = integer(item 3 of getInsertionPoint(doc))
  22.   newFrame(doc, rect(144, y, 144 + member("name&address").width, getPageHeight(doc)), 0)
  23.   setTextJust(doc, "left")
  24.   append(doc, member("orderIntro"), 0)
  25.   setTextLineSpacing(doc, 24)
  26.   append(doc, member("name&address"), 0)
  27.   y = integer(item 3 of getInsertionPoint(doc))
  28.   newFrame(doc, rect(144, y, 144 + member("name&address").width - member("priceCol").width, getPageHeight(doc)), 0)
  29.   setTextLineSpacing(doc, 11)
  30.   append(doc, member("productCol"), 0)
  31.   bottom = integer(item 3 of getInsertionPoint(doc))
  32.   newFrame(doc, rect(144 + member("name&address").width - member("priceCol").width, y, 144 + member("name&address").width, getPageHeight(doc)), 0)
  33.   setTextJust(doc, "right")
  34.   setTextLineSpacing(doc, 11)
  35.   append(doc, member("priceCol"), 0)
  36.   newFrame(doc, rect(144, bottom, 144 + member("name&address").width, getPageHeight(doc)), 0)
  37.   append(doc, member("ordertotal"), 0)
  38.   bottom = integer(item 3 of getInsertionPoint(doc))
  39.   setTextJust(doc, "left")
  40.   newFrame(doc, rect(144, bottom, 144 + member("name&address").width, getPageHeight(doc)), 0)
  41.   append(doc, member("endinfo"), 0)
  42.   cursor(-1)
  43.   if word 1 of the text of cast the castNum of sprite the clickOn = "Preview" then
  44.     printPreview(doc)
  45.   else
  46.     if doJobSetup(doc) = 1 then
  47.       updateStage()
  48.       print(doc)
  49.     end if
  50.   end if
  51.   doc = 0
  52. end
  53.